home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / games / m-z / ufocd32.lha / UFOEnemyUnknownCDｳｲ / ufo < prev    next >
Text File  |  1994-10-11  |  528b  |  44 lines
  1. failat 65535
  2. assign cd0: remove
  3. assign cd0: dismount
  4. assign cd0: ""
  5. assign c: cd0:c
  6. assign fonts: cd0:fonts
  7. assign libs: cd0:libs
  8. assign devs: cd0:
  9. assign l: cd0:
  10. assign s: cd0:
  11. assign sys: cd0:
  12. ;makedir >nil: ram:env
  13. ;makedir >nil: ram:env/sys
  14. assign env: ram:env
  15.  
  16. assign UFOTemp: ""
  17. ; Icon script
  18.  
  19. Intro
  20. c:avail >NIL: flush
  21.  
  22. FAILAT 20
  23.  
  24. Geo "0" "0"
  25. IF ERROR
  26.    SKIP begin
  27. ENDIF
  28.  
  29. SKIP end
  30.  
  31. LAB begin
  32. c:avail >NIL: flush
  33. Tactical "1" "0"
  34.  
  35. LAB geo
  36. c:avail >NIL: flush
  37. Geo "1" "0"
  38. IF ERROR
  39.    SKIP begin BACK
  40. ENDIF
  41.  
  42. LAB end
  43. endcli
  44.